home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / towers.src < prev    next >
Text File  |  1991-10-19  |  1KB  |  91 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ TOWERS game, by Paul Lancaster
  3. DIR
  4.   TOH
  5.     \<< 0 'T' STO
  6. "1 2 3 4 5 6 " 'S'
  7. STO "" 'M' STO ""
  8. 'E' STO S M E {
  9. F1T2 F1T3 F2T1 F2T3
  10. F3T1 F3T2 } MENU
  11.     \>>
  12.   TOH1
  13.     \<< CLEAR 'T' 1
  14. STO+ 7 CF S SIZE 3
  15.       IF >
  16.       THEN S 1 1
  17. SUB STR\-> S 3 3 SUB
  18. STR\->
  19.         IF >
  20.         THEN 7 SF
  21.         END
  22.       END M SIZE 3
  23.       IF >
  24.       THEN M 1 1
  25. SUB STR\-> M 3 3 SUB
  26. STR\->
  27.         IF >
  28.         THEN 7 SF
  29.         END
  30.       END E SIZE 3
  31.       IF >
  32.       THEN E 1 1
  33. SUB STR\-> E 3 3 SUB
  34. STR\->
  35.         IF >
  36.         THEN 7 SF
  37.         END
  38.       END S M E 7
  39.       IF FS?
  40.       THEN B
  41.       END DUP
  42. "1 2 3 4 5 6 "
  43.       IF ==
  44.       THEN T
  45. " TURNS" +
  46.       END
  47.     \>>
  48.   F1T2
  49.     \<< 'F2T1' 'B'
  50. STO E 1 2 SUB E 3
  51. 12 SUB 'E' STO M +
  52. 'M' STO TOH1
  53.     \>>
  54.   F1T3
  55.     \<< 'F3T1' 'B'
  56. STO E 1 2 SUB E 3
  57. 12 SUB 'E' STO S +
  58. 'S' STO TOH1
  59.     \>>
  60.   F2T1
  61.     \<< 'F1T2' 'B'
  62. STO M 1 2 SUB M 3
  63. 12 SUB 'M' STO E +
  64. 'E' STO TOH1
  65.     \>>
  66.   F2T3
  67.     \<< 'F3T2' 'B'
  68. STO M 1 2 SUB M 3
  69. 12 SUB 'M' STO S +
  70. 'S' STO TOH1
  71.     \>>
  72.   F3T1
  73.     \<< 'F1T3' 'B'
  74. STO S 1 2 SUB S 3
  75. 12 SUB 'S' STO E +
  76. 'E' STO TOH1
  77.     \>>
  78.   F3T2
  79.     \<< 'F2T3' 'B'
  80. STO S 1 2 SUB S 3
  81. 12 SUB 'S' STO M +
  82. 'M' STO TOH1
  83.     \>>
  84.   CST 0
  85.   S 0
  86.   M 0
  87.   E 0
  88.   T 0
  89.   B 0
  90. END
  91.